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PRIMT IX - A Routin e for yrintjug Kmerical Ogtput from TX~0 



PHIHT II is an eapaoded version of PEXNT I and viU be her© treated 
as ijf the reader were familiar with EHIHT I (Memo M-5001-I8)o 

The two routines are almost identical except that HilHT II allows 
for the order 

pfp (=460000) arint floating £oint 

Floating point numhers are printed out in blocks, as desiredo The exact type 
of normalized floating point numbers which the program will handle is de- 
scribed in memo M-5001-2O0 

All of the orders available in PRIKT I are also available in PEINT II 
pern n, where a is less than 5© oust be used at some time preceding pfpo The 
psf n order specifies the number of figures typed in the fractional part of 
the numberso It is meaningless to let n be greater than 6» If the psf order 
is not given, n is assumed to be 6e 

Eemembering that each floating point number requires 2 registers for 
storage, the orders 



pen 


10 


pno 


4000 


to 


4005 


pen 


k 


pfp 


4000 


to 


4004 



Yields 

400o| 240000 3 
4000| 0500017 1 



300000 2 
0300020 1 



300000 3 
0600015 1 



The above numbers are interpreted: 



.500017 X 10 or 5*00017 or 5«0 when rounded off* 



other n^bers are, accordingly ^ 3 and 6 • The printout progmn has bean 
adjustsd so that the ntjubere printed out will be slightly greater than 
their stored values o This aiakss infargers appear as intergsrso For exmmlec 
4o0 iB printed ukQQOlS 1 rather than o399985 lo fhe program has b©en tested 
OTer a wide range of nuabars and has be©n found quite reliable to four signifi»^ 
cant figures after round-off o 

PSINT II will handle normalized numbers of any sizco "*• or • . Zero 
is printed 6000000 n where n is unspecified; that is, the exponent is meaning- 
less in this ease. Qa occasiouo one less digit than specified is printedo 
For ezaaplep .89825 6 is read 898o250e and may be printed evan if a psf 6 order 
were givenc 5?his occurs because of an initial zero suppression built into the 
prograia. 

PEIHT II is available on binary tap© onlyo occupying registers 1400^ 

to 2560g inclusiveo The user, when converting, must defin© pit =* 1400b a?h8 

other definitions are all available in Ilnglish on the "Print I define" tape 
and %re also available on a binary tape for FLITo !Phe "Pi^int I Binary Define" 
tape will £yot work with Macro because of an unaddrassed transfer order in the 
Macro instJ*uction "print"* 
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